object FormClientesEdit: TFormClientesEdit
  Left = 492
  Top = 178
  ActiveControl = GirdEnvios
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = 'Ficha de cliente'
  ClientHeight = 356
  ClientWidth = 600
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label14: TLabel
    Left = 0
    Top = 0
    Width = 600
    Height = 27
    Align = alTop
    Alignment = taCenter
    Caption = 'Ficha de Cliente'
    Font.Charset = ANSI_CHARSET
    Font.Color = clMaroon
    Font.Height = -19
    Font.Name = 'Arial Black'
    Font.Style = []
    ParentFont = False
  end
  object pBotones: TPanel
    Left = 0
    Top = 325
    Width = 600
    Height = 31
    Align = alBottom
    TabOrder = 0
    DesignSize = (
      600
      31)
    object BtnAceptar: TBitBtn
      Left = 414
      Top = 5
      Width = 81
      Height = 22
      Anchors = [akRight, akBottom]
      TabOrder = 0
      OnClick = BtnAceptarClick
      Kind = bkOK
    end
    object BtnCancelar: TBitBtn
      Left = 506
      Top = 5
      Width = 81
      Height = 22
      Anchors = [akRight, akBottom]
      TabOrder = 1
      OnClick = BtnCancelarClick
      Kind = bkCancel
    end
  end
  object PageControlClientes: TPageControl
    Left = 0
    Top = 27
    Width = 600
    Height = 298
    ActivePage = tsEnvios
    Align = alClient
    TabOrder = 1
    OnChange = PageControlClientesChange
    object tsDatos: TTabSheet
      Caption = 'Datos Genrales'
      DesignSize = (
        592
        270)
      object Label1: TLabel
        Left = 2
        Top = 18
        Width = 33
        Height = 13
        Caption = 'C'#243'digo'
        FocusControl = eID_Cliente
      end
      object Label2: TLabel
        Left = 435
        Top = 18
        Width = 59
        Height = 13
        Anchors = [akTop, akRight]
        Caption = 'N.F.F./C.I.F.'
        FocusControl = dbeCIF
      end
      object Label3: TLabel
        Left = 2
        Top = 48
        Width = 63
        Height = 13
        Caption = 'Raz'#243'n Social'
        FocusControl = DBEdit2
      end
      object Label5: TLabel
        Left = 2
        Top = 77
        Width = 45
        Height = 13
        Caption = 'Direcci'#243'n'
        FocusControl = DBEdit4
      end
      object Label6: TLabel
        Left = 2
        Top = 106
        Width = 54
        Height = 13
        Caption = 'Cod. Postal'
        FocusControl = DBEdit5
      end
      object Label7: TLabel
        Left = 164
        Top = 106
        Width = 47
        Height = 13
        Caption = 'Poblaci'#243'n'
        FocusControl = DBEdit6
      end
      object Label8: TLabel
        Left = 164
        Top = 135
        Width = 44
        Height = 13
        Caption = 'Provincia'
        FocusControl = DBEdit7
      end
      object Label9: TLabel
        Left = 2
        Top = 164
        Width = 42
        Height = 13
        Caption = 'Tel'#233'fono'
        FocusControl = DBEdit8
      end
      object Label10: TLabel
        Left = 186
        Top = 164
        Width = 17
        Height = 13
        Caption = 'Fax'
        FocusControl = DBEdit9
      end
      object Label11: TLabel
        Left = 2
        Top = 251
        Width = 71
        Height = 13
        Caption = 'Observaciones'
        FocusControl = DBEdit10
      end
      object Label12: TLabel
        Left = 314
        Top = 164
        Width = 27
        Height = 13
        Caption = 'e-mail'
        FocusControl = DBEdit11
      end
      object BtnAsignarID_CLIENTE: TSpeedButton
        Left = 144
        Top = 15
        Width = 169
        Height = 21
        Caption = 'Asignar c'#243'digo autom'#225'tico'
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333FF3333333333333003333333333333F77F33333333333009033
          333333333F7737F333333333009990333333333F773337FFFFFF330099999000
          00003F773333377777770099999999999990773FF33333FFFFF7330099999000
          000033773FF33777777733330099903333333333773FF7F33333333333009033
          33333333337737F3333333333333003333333333333377333333333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333}
        NumGlyphs = 2
        OnClick = BtnAsignarID_CLIENTEClick
      end
      object Label13: TLabel
        Left = 2
        Top = 193
        Width = 83
        Height = 13
        Caption = 'Agente Comercial'
        FocusControl = DBEdit10
      end
      object Label15: TLabel
        Left = 2
        Top = 222
        Width = 66
        Height = 13
        Caption = 'Zona Reparto'
        FocusControl = DBEdit10
      end
      object eID_Cliente: TDBEdit
        Left = 93
        Top = 16
        Width = 46
        Height = 19
        Color = clInfoBk
        Ctl3D = False
        DataField = 'ID_CLIENTE'
        DataSource = dsClientes
        ParentCtl3D = False
        TabOrder = 0
      end
      object dbeCIF: TDBEdit
        Left = 499
        Top = 16
        Width = 85
        Height = 19
        Anchors = [akTop, akRight]
        Ctl3D = False
        DataField = 'CIF'
        DataSource = dsClientes
        ParentCtl3D = False
        TabOrder = 1
      end
      object DBEdit2: TDBEdit
        Left = 93
        Top = 45
        Width = 491
        Height = 19
        Anchors = [akLeft, akTop, akRight]
        Ctl3D = False
        DataField = 'NOMBRE'
        DataSource = dsClientes
        ParentCtl3D = False
        TabOrder = 2
      end
      object DBEdit4: TDBEdit
        Left = 93
        Top = 74
        Width = 491
        Height = 19
        Anchors = [akLeft, akTop, akRight]
        Ctl3D = False
        DataField = 'DIRECCION'
        DataSource = dsClientes
        ParentCtl3D = False
        TabOrder = 3
      end
      object DBEdit5: TDBEdit
        Left = 93
        Top = 103
        Width = 46
        Height = 19
        Ctl3D = False
        DataField = 'CODPOSTAL'
        DataSource = dsClientes
        ParentCtl3D = False
        TabOrder = 4
      end
      object DBEdit6: TDBEdit
        Left = 222
        Top = 103
        Width = 362
        Height = 19
        Anchors = [akLeft, akTop, akRight]
        Ctl3D = False
        DataField = 'POBLACION'
        DataSource = dsClientes
        ParentCtl3D = False
        TabOrder = 5
      end
      object DBEdit7: TDBEdit
        Left = 222
        Top = 132
        Width = 362
        Height = 19
        Anchors = [akLeft, akTop, akRight]
        Ctl3D = False
        DataField = 'PROVINCIA'
        DataSource = dsClientes
        ParentCtl3D = False
        TabOrder = 6
      end
      object DBEdit8: TDBEdit
        Left = 93
        Top = 161
        Width = 70
        Height = 19
        Ctl3D = False
        DataField = 'TELEFONO'
        DataSource = dsClientes
        ParentCtl3D = False
        TabOrder = 7
      end
      object DBEdit9: TDBEdit
        Left = 222
        Top = 161
        Width = 70
        Height = 19
        Ctl3D = False
        DataField = 'fax'
        DataSource = dsClientes
        ParentCtl3D = False
        TabOrder = 8
      end
      object DBEdit10: TDBEdit
        Left = 93
        Top = 249
        Width = 491
        Height = 19
        Anchors = [akLeft, akTop, akRight]
        Ctl3D = False
        DataField = 'OBSERVACIONES'
        DataSource = dsClientes
        ParentCtl3D = False
        TabOrder = 9
      end
      object DBEdit11: TDBEdit
        Left = 350
        Top = 161
        Width = 233
        Height = 19
        Anchors = [akLeft, akTop, akRight]
        Ctl3D = False
        DataField = 'EMAIL'
        DataSource = dsClientes
        ParentCtl3D = False
        TabOrder = 10
      end
      object cbAgenteComercial: TDBLookupComboBox
        Left = 93
        Top = 190
        Width = 196
        Height = 19
        Ctl3D = False
        DataField = 'ID_AGENTE_COMERCIAL'
        DataSource = dsClientes
        KeyField = 'ID_USUARIO'
        ListField = 'NOMBRE'
        ListSource = dsAgenteComercial
        ParentCtl3D = False
        TabOrder = 11
      end
      object cbZonaReparto: TDBLookupComboBox
        Left = 93
        Top = 219
        Width = 490
        Height = 19
        Anchors = [akLeft, akTop, akRight]
        Ctl3D = False
        DataField = 'ID_ZONA_REPARTO'
        DataSource = dsClientes
        KeyField = 'ID_ZONA'
        ListField = 'ZONA'
        ListSource = dsZonaReparto
        ParentCtl3D = False
        TabOrder = 12
      end
    end
    object tsContactos: TTabSheet
      Caption = 'Contactos'
      ImageIndex = 1
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 592
        Height = 24
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        DesignSize = (
          592
          24)
        object BtnCtosNuevo: TSpeedButton
          Left = 0
          Top = 0
          Width = 100
          Height = 24
          Anchors = [akLeft, akTop, akBottom]
          Caption = 'Nuevo'
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000130B0000130B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
            333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
            0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
            07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
            07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
            0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
            33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
            B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
            3BB33773333773333773B333333B3333333B7333333733333337}
          NumGlyphs = 2
          OnClick = BtnCtosNuevoClick
        end
        object BtnCtosModificar: TSpeedButton
          Left = 100
          Top = 0
          Width = 100
          Height = 24
          Anchors = [akLeft, akTop, akBottom]
          Caption = 'Modificar'
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
            000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
            00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
            F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
            0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
            FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
            FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
            0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
            00333377737FFFFF773333303300000003333337337777777333}
          NumGlyphs = 2
          OnClick = BtnCtosModificarClick
        end
        object BtnCtosEliminar: TSpeedButton
          Left = 200
          Top = 0
          Width = 100
          Height = 24
          Anchors = [akLeft, akTop, akBottom]
          Caption = 'Eliminar'
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
            3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070
            33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
            33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
            333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070
            03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070
            33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777
            0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033
            3333333337FFF7F3333333333000003333333333377777333333}
          NumGlyphs = 2
          OnClick = BtnCtosEliminarClick
        end
      end
      object GridCtos: TXDBGrid
        Left = 0
        Top = 24
        Width = 592
        Height = 246
        Align = alClient
        DataSource = dsClientesCtos
        HeaderFont.Charset = ANSI_CHARSET
        HeaderFont.Color = clWindowText
        HeaderFont.Height = -11
        HeaderFont.Name = 'MS Sans Serif'
        HeaderFont.Style = []
        TabOrder = 1
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'ID_CONTACTO'
            ReadOnly = True
            Title.Caption = 'N'#186
            Visible = True
            Width = 32
          end
          item
            Expanded = False
            FieldName = 'NOMBRE'
            Title.Caption = 'Nombre'
            Visible = True
            Width = 107
          end
          item
            Expanded = False
            FieldName = 'PUESTO'
            Title.Caption = 'Puesto'
            Visible = True
            Width = 100
          end
          item
            Expanded = False
            FieldName = 'DEPARTAMENTO'
            Title.Caption = 'Departamento'
            Visible = True
            Width = 91
          end
          item
            Expanded = False
            FieldName = 'TELEFONO'
            Title.Caption = 'Telefono'
            Visible = True
            Width = 58
          end
          item
            Expanded = False
            FieldName = 'MOVIL'
            Title.Caption = 'Movil'
            Visible = True
            Width = 56
          end
          item
            Expanded = False
            FieldName = 'FAX'
            Title.Caption = 'Fax'
            Visible = True
            Width = 56
          end
          item
            Expanded = False
            FieldName = 'EMAIL'
            Title.Caption = 'eMail'
            Visible = True
            Width = 94
          end
          item
            Expanded = False
            FieldName = 'OBSERVACIONES'
            Title.Caption = 'Observaciones'
            Visible = True
            Width = 211
          end>
      end
    end
    object tsEnvios: TTabSheet
      Caption = 'Direcciones de env'#237'o'
      ImageIndex = 2
      OnShow = tsEnviosShow
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 592
        Height = 24
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        DesignSize = (
          592
          24)
        object BtnDirNuevo: TSpeedButton
          Left = 0
          Top = 0
          Width = 100
          Height = 24
          Anchors = [akLeft, akTop, akBottom]
          Caption = 'Nuevo'
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000130B0000130B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
            333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
            0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
            07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
            07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
            0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
            33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
            B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
            3BB33773333773333773B333333B3333333B7333333733333337}
          NumGlyphs = 2
          OnClick = BtnDirNuevoClick
        end
        object BtnDirModificar: TSpeedButton
          Left = 100
          Top = 0
          Width = 100
          Height = 24
          Anchors = [akLeft, akTop, akBottom]
          Caption = 'Modificar'
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
            000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
            00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
            F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
            0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
            FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
            FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
            0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
            00333377737FFFFF773333303300000003333337337777777333}
          NumGlyphs = 2
          OnClick = BtnDirModificarClick
        end
        object BtnDirEliminar: TSpeedButton
          Left = 200
          Top = 0
          Width = 100
          Height = 24
          Anchors = [akLeft, akTop, akBottom]
          Caption = 'Eliminar'
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
            3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070
            33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
            33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
            333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070
            03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070
            33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777
            0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033
            3333333337FFF7F3333333333000003333333333377777333333}
          NumGlyphs = 2
          OnClick = BtnDirEliminarClick
        end
        object BtnCopiarDir: TSpeedButton
          Left = 348
          Top = 0
          Width = 185
          Height = 24
          Anchors = [akLeft, akTop, akBottom]
          Caption = 'Copiar de Datos Generales'
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000130B0000130B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
            FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
            FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
            007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
            7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
            99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
            99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
            99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
            93337FFFF7737777733300000033333333337777773333333333}
          NumGlyphs = 2
          OnClick = BtnCopiarDirClick
        end
      end
      object GirdEnvios: TXDBGrid
        Left = 0
        Top = 24
        Width = 592
        Height = 246
        Align = alClient
        DataSource = dsClientesEnvios
        HeaderFont.Charset = ANSI_CHARSET
        HeaderFont.Color = clWindowText
        HeaderFont.Height = -11
        HeaderFont.Name = 'MS Sans Serif'
        HeaderFont.Style = []
        TabOrder = 1
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'ID_ENVIO'
            ReadOnly = True
            Title.Caption = 'N'#186
            Visible = True
            Width = 21
          end
          item
            Expanded = False
            FieldName = 'DESCRIPCION'
            Title.Caption = 'Descripci'#243'n'
            Visible = True
            Width = 122
          end
          item
            Expanded = False
            FieldName = 'DIRECCION'
            Title.Caption = 'Direcci'#243'n'
            Visible = True
            Width = 144
          end
          item
            Expanded = False
            FieldName = 'CODPOSTAL'
            Title.Caption = 'C.P.'
            Visible = True
            Width = 32
          end
          item
            Expanded = False
            FieldName = 'POBLACION'
            Title.Caption = 'Poblaci'#243'n'
            Visible = True
            Width = 69
          end
          item
            Expanded = False
            FieldName = 'PROVINCIA'
            Title.Caption = 'Provincia'
            Visible = True
            Width = 71
          end
          item
            Expanded = False
            FieldName = 'ID_ZONA_REPARTO'
            Title.Caption = 'Zona Reparto'
            Visible = True
            Width = 76
          end
          item
            Expanded = False
            FieldName = 'TELEFONO'
            Title.Caption = 'Tel'#233'fono'
            Visible = True
            Width = 48
          end
          item
            Expanded = False
            FieldName = 'CONTACTO'
            Title.Caption = 'Contacto'
            Visible = True
            Width = 96
          end
          item
            Expanded = False
            FieldName = 'OBSERVACIONES'
            Title.Caption = 'Observaciones'
            Visible = True
            Width = 200
          end>
      end
    end
  end
  object dsClientes: TDataSource
    DataSet = md.TClientes
    Left = 496
  end
  object dsClientesCtos: TDataSource
    DataSet = md.tClientesCtos
    Left = 524
  end
  object dsClientesEnvios: TDataSource
    DataSet = md.TClientesEnvios
    Left = 552
  end
  object qAgenteComercial: TZReadOnlyQuery
    Connection = md.BBDD
    SQL.Strings = (
      'SELECT ID_USUARIO, NOMBRE'#10
      'FROM USUARIOS'#10
      'ORDER BY NOMBRE')
    Params = <>
    Left = 340
  end
  object dsAgenteComercial: TDataSource
    DataSet = qAgenteComercial
    Left = 372
  end
  object qZonaReparto: TZReadOnlyQuery
    Connection = md.BBDD
    SQL.Strings = (
      
        'SELECT CONCAT( CAST( ID_ZONA AS CHAR), '#39' '#39', DESC_ZONA) ZONA, ID_' +
        'ZONA'#10
      'FROM ZONAS_REPARTO'#10
      'ORDER BY ID_ZONA'#10
      ''
      ''
      ''
      ''
      '')
    Params = <>
    Left = 428
  end
  object dsZonaReparto: TDataSource
    DataSet = qZonaReparto
    Left = 460
  end
end
